;; Copyright (c) 2012 Alan Watson. All rights reserved.

;; BSD-style license: http://synthcode.com/license.txt

;; This library implements the current-second procedure of the R7RS
;; (scheme time) library.

(define-library (my-scheme time)
  (export current-second)
  (import (scheme base))
  (import (prefix (clock tai) tai-clock:))
  (import (prefix (clock system) system-clock:))
  (begin
    (define current-second
      (tai-clock:make-tai-clock system-clock:type
                                system-clock:call-with-current-clock-values))))
